﻿Public Class BEprotocolos

#Region "Declaración de variables"

    Private codProtocolo As Integer
    Private codPatrocinador As Integer
    Private codTipo As Integer
    Private codEstado As Integer
    Private fecInicio As Date
    Private fecFin As Date
    Private observaciones As String
    Private titulo As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodProtocolo As Object, _
            ByVal pCodPatrocinador As Object, _
            ByVal pCodTipo As Object, _
            ByVal pCodEstado As Object, _
            ByVal pFecInicio As Object, _
            ByVal pfecFin As Object, _
            ByVal pobservaciones As Object)

        Me.codProtocolo = pCodProtocolo
        Me.codPatrocinador = pCodPatrocinador
        Me.codTipo = pCodTipo
        Me.fecInicio = pFecInicio
        Me.fecFin = pfecFin
        Me.codEstado = pCodEstado
        Me.observaciones = pobservaciones

    End Sub


    Public Property _codProtocolo() As Integer
        Get
            Return Me.codProtocolo
        End Get
        Set(ByVal value As Integer)
            Me.codProtocolo = value
        End Set
    End Property

    Public Property _codPatrocinador() As Integer
        Get
            Return Me.codPatrocinador
        End Get
        Set(ByVal value As Integer)
            Me.codPatrocinador = value
        End Set
    End Property


    Public Property _codTipo() As Integer
        Get
            Return Me.codTipo
        End Get
        Set(ByVal value As Integer)
            Me.codTipo = value
        End Set
    End Property


    Public Property _codEstado() As Integer
        Get
            Return Me.codEstado
        End Get
        Set(ByVal value As Integer)
            Me.codEstado = value
        End Set
    End Property

    Public Property _fecInicio() As Date
        Get
            Return Me.fecInicio
        End Get
        Set(ByVal value As Date)
            Me.fecInicio = value
        End Set
    End Property

    Public Property _fecFin() As Date
        Get
            Return Me.fecFin
        End Get
        Set(ByVal value As Date)
            Me.fecFin = value
        End Set
    End Property

    Public Property _obs() As String
        Get
            Return observaciones
        End Get
        Set(ByVal value As String)
            observaciones = value
        End Set
    End Property

    Public Property _titulo() As String
        Get
            Return titulo
        End Get
        Set(ByVal value As String)
            titulo = value
        End Set
    End Property
End Class
